DDDDDDDDDDDD ccccccecccccce «LLL 
DODDDDDDDDDD cccccccccccc LLL 
cecccccccccce «LLL 


DODDDDDDDDDD 
DOD DDD ccc LLL 
DOD DDD ccc LLL 
DDD DDD CCC LLL 
DDD DdbD CCC LLL 
DOD DdDD CCC LLL 
DOD DDD ccc LLL 
DDD DDD ccc LLL 
DDD DdDD ccc LLL 
DDD DDD CCC LLL 
DOD DbD CCC LLL 
DOD DOD ccc LLL 
D DDD CCC LLL 
DOD DDD ccc LLL 
DOD DOD CCC LLL 
DOD bbdD CCC LLL 
DDDODDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DODDDDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DDDDDDDDDDDD CCCCCCCCCCCC LLLLLELLELLLLLLLL 


**F ILE**1D**LOGICAL 
LL 000000 GGGGGGGG T1111] ccccccce AAAAAA LL 
LL 000000 GGGGGGGG Hii] cccccccc AAAAAA LL 
LL 00 00 GG I] cc AA AA LL 
LL 00 00 GG I] cc A AA LL 
LL 00 00 GG I] cc AA AA LL 
LL 00 00 GG I] cc AA AA LL 
LL 00 00 GG II cc AA AA LL 
LL 00 00 GG I] cc AA AA LL 
LL 00 00 GG GGGGGG I] cc AA LL 
LL 00 00 GG G6GG6GGG I] cc AAAAAAAAAA LL 
LL 00 00 GG GG I] cc AA AA LL eee 
LL 00 00 GG GG I] cc AA AA LL eeee 
LLLLLLLLLL 000000 GGGGGG III! cccccccc AA AA LLLLLLLLLL eee 
LLLLLLLLLL 000000 GGGGGG 1111 Cccccccc AA AA LLLLLLELLLLE eee 
LL III] SSSSSSSS 
LL III! SSSSSSSS 
LL I] SS 
LL I] $$ 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] ss 
LLELLLLELLLL III] SSSSSSSS 
LLLLLLLLLL 1111 SSSSSSSS 
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"S$Ep=1986 assets? Eocusaciacrcar-mars1 = 88° fy 
‘TITLE LOGICAL = LOGICAL NAME COMMANDS 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN eet NCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF ~% NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eoRPORAT Ione NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS i i 
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FOR THE USE OR RELIABILITY OF ITS 
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S NOT SUPPLIED BY DIGITAL. 
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LOGICAL NAME DCLS COMMAND EXECUTION 
reat te DEVICE 


AME TABLE 
SHOW LOGICAL NAME TRANSLATION 
Peter George 20-April-1983 


MODIFIED BY: 

v03-007 HwWS0078 Harold Schultz 02-Jul-1984 
Fix negation of table Fame y \ Be in ASSIGN,  DEASSIGN, 
and DEFINE commands. 

v03-006 HWS0041 Harold Schultz 12-Apr-1984 
Add ALLOCATE /GENERIC. 

v03-005 pceoee: Peter George 20-Mar-1984 

Add /JOB qualifier. 
v03-004 HWS0005 rold Schultz 07-F eb-1984 


Added /PROTECTION= (SV: RWED,OW:RWED,...) qualifier for 
ween erecting 2 log ical name table. 

Add Ae qua Vitter” when cresting a logical name table. 
Output informational messages after table creation. 
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Pere bbe SSietisy EOC cache Sea cAL Mag: 31 
v03-003 TMK0001 Todd A 


12-0¢ t-1983 
Translate logical names - ng LNMSDCL_LOGICAL as the table 
name instead of LNMSDEFAULT_SEARCH. 


v03-002 4 60902 Peter George 
bug in ALLOCATE — = perenne 
botans old logical nam ands. 
Stop fooling sround with the. CRELOG bit. 


v03-001 PCG0001 Peter George 15-Jun-1983 
Return more helpful status when ALLOCATE faite, 
Pass equivalence name to DCLSOPEN_OUTPUT. 
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MEW —OVOONOM 
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$P 
SSSDEF 


«PSECT DCLSZCODE BYTE ,RD,NOWRT 


: LOCAL DATA 


9 OUTPUTNAM: 
-ASCIC 


LNMSPROCESS: 
2 -ASCIC 
LNMSJOB: 
96 -ASCIC 


LNMS$GROUP : 
96 -ASCIC 


LNMSSYSTEM: 
8 -ASCIC 


LNMSPROCESS 


I 
-ASTIC 


LNMSF ILE_DEV: 


104 eASCIC 
19 UNDEF INED: 
106 eASCIC 


+4 LOGICALMSG: 
108 -ASCIC 


ACCESS: 
CLASS: 


ASCII 
ASCII 


i 
i 
K 
114 


LNMSDCL_LOGICAL: 
sASCIC 


E 15 
4 


§ ; MACRO LIBRARY CALLS 


*SYSSOUTPUT* 


*"LNMSPROCESS' 


*LNMSJOB* 


*LNMSGROUP* 


"LNMSSYSTEM’ 


16-SEP-1984 
“SEP-1984 


"LNMSDCL_LOGICAL" 


RECTORY: 
*LNMSPROCESS_DIRECTORY' 


"LNMSFILE_DEV' 


"UNDEF INED* 
* TAS = “*!AS"* 


/DEWR/ 
/WGOS/ 


(!AS)* 


agieF8? 


sACCESS PROTEC 
sPROTECTION CL 


DEFINE OFFSETS FOR COMMON PARSING DATA STRUCTURE 
EQUNAM = 32 


Tl 
AS 


AX/VMS Macro V04-00 
DCL.SRCIJLOGICAL.MAR;1 


ON CODES 
SES 


ne 


DEFINE PROCESS WORK AREA 

DEFINE COMMAND WORK AREA 

sDEFINE RESULT PARSE DESCRIPTOR FORMAT 
DEFINE ERROR/STATUS VALUES 

sDEFINE LOGICAL NAME OFFS 

sDEFINE PROCESSOR STATUS FIELDS 
DEFINE SYSTEM STATUS VALU 


1 
= Aa, me canes REAM REND ECU Rea 


OGNAM = ¢ 
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LOGI = LOGICAL NAME COMMANDS 16-SEP-1984 00:08: AX/VMS Macro v04-00 Pp 
vOe-000 ALLOCATE DEVICE CSEp=198¢ Siati57 EDCLLSRCILOGICAL -MAR: 1 a | 
§ 0 = «SBTTL ALLOCATE DEVICE 
; ; DCLSALLOCATE = ALLOCATE DEVICE 
134 : THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE ALLOCATE 
; ! 5 ; COMMAND. 
OBE $ inputs: | 
O8— 1 § : RB = ADDRESS OF SCRATCH BUFFER DESCRIPTOR. 
—E 1460; R9_ = ADDRESS OF SCRATCH STACK. 
é 141; R10 = BASE ADDRESS OF COMMAND WORK AREA. 
: 16 ; R11 = BASE ADDRESS OF PROCESS WORK AREA. 
Py | 
0 144 ; OUTPUTS: | 
BBE 146 ; THE SPECIFIED DEVICE IS ALLOCATED AND ASSIGNED THE SPECIFIED LOGICAL | 
BE 147: NAME. IF THE LOGICAL NAME WAS PREVIOUSLY ASSIGNED, THEN A MESSAGE TO 
OO8E 148 3 THAT EFFECT IS WRITTEN TO THE OUTPUT STREAM. 
OOBE 130 b LSALLOCATE:: ZALLOCATE DEVICE 
i443 13¢ ; Allocate and init common logical name data structure. | 
59 10 C2 O08E 154 ° SUBL #16,R9 ZALLOCATE PHYSICAL DEV BUFFER 
8 4 Hi 991 139 MOVE RO, (R9), sINIT THE EQUIV NAME DESCR | 
79 7 0097 137 CLRQ_ = (R9) ZALLOCATE LOG NAME DESCR | 
55 BE AF 9€ 0099 158 MOV LNMSFILE_DEV.RS :SET LOGICAL NAME TABLE 
$8 85 9A 90 159 MOVZBL (R5)+,R4 3 
9 54 7D AQ 160 mova 4,-(R9) TSAVE THE DESCRIPTOR 
79 «02 00 AS 161 MOVL  #PSLSC_SUPER,-(R9) SAND SUPERVISOR MODE 
79 «01 p ng 168 MOVL #LOG_M7-(R9) SASSUME /LOG DEFAULTED 
9 Ad 16 CLRQ = = (ROT [SET DEFAULT NAME/TRAN ATTRIBUTES 
58 59 OD AB «164 MOVL R9,RB ‘COPY THE BASE OF THE DATA STRUCTURE 
79 D4 OOAE 165 CLRL = (RY) SALLOCATE /TYPE VALUE | 
56 4 008 169 CLRL = R6 :SET NO TERMINATOR YET 
57 0908 BF 3¢ 0B 168 MOVZWL #SS$_NOSUCHDEV,R7 [PRESET ERROR STATUS 
008? 176 3 . 
4's Vy : Process /log and /type command qualifiers. | 
FFAG" 30 0087 138 10$:  BSBW DCLSGETDVAL :GET NEXT TOKEN | 
03 «5 1 OOBA 17% CMPB sa R'5, #@PTR_K_PARAMETR [PARAMETER VALUE? 
¢ 3 00BD «=«4175 Bea. 408 [YES, THEN NO /GENE OR /LOG 
FFSE* 30 O0BF 17% BSBY OCLSGETNVAL ZGET QUALIFIER TYPE | 
51 00O°BF 91 00C2 17 CMPB = @CLISK_ALLO_GENE.R1 31S _1T_/GENE 
13 00¢ 178 BEQL = 2 ‘YES, THEN BRANCH 
08 a8 01 cB 00C8 «17 BISL #LOG_M,QUAL(R8) ; / 
e853 €9 OCC 1 9 BLBC Osi ‘BRANCH IF SO | 
08 AB 01 CA OCF I BICL #.66_M.QUAL (RB) SET /NOLOG | 
E 1 0003 1 j BRB 10$ :GET NEXT TOKEN | 
D4 00D 183 20$ CLRL =. (ROD) SASSUME /NOGENERIC 
DD Es D7? 184 BLBS R5, 108 ‘BRANCH IF SO 
69 01 OD DA 185 MOVL #1.(R9) t1T WAS /GENERIC 
D8 11 OODD 186 BRB 10$ [GET NEXT TOKEN 


ae eee : J 


H 15 


LOGI = LOGICAL NAME COMMANDS 16-SEP=1 :0 AX/VMS Macro v04-00 Page 
100 605 ALLOCATE pevite 4-5 Ep=19 198 99: oe: o foe SRCJLOGICAL MAR: 1 . & 
tI 
OF $ ; Return allocation error. | 
50 57 pO BODE 19 $0$:  MOVL _—R7,RO SET ERROR STATUS | 
0 E 1 RSB EXIT 
E i 4 | 
: 195 3 : Process the device names. 
FFIA® 30 E 139 $0s:  BsBw DCL SGETDVAL 3GET NEXT TOKEN | 
05 36 91 ES 198 CMP a #PTR_K_COMMA i ANOTHER PARAMETER VALUE IN LIST? | 
03 35 of EB oT 40S: CMPB RD, APTR_K_PARAMETR :PARARETER VALUE? | 
56 Se 6 F 3 MOVL  R4,R6 TSAVE TOKEN TERMINATOR | 
we" 8 Bt S| Be pcre Seientae 
FF A241 ‘ 9 FA 03 cnPe eas: :/,°1(R2)CR1) ‘Device NAME END WITH A COLON? | 
18 AB 4 101 0 DECL §§ LOGNAM(R8) : REDUCE LENGTH OF DEVICE NAME 
50 69 DO 01 08 50$: MOVL RO) “GET /GENERIC INDICATOR 
a 09 SALLOC 5 tnantnes nds - 3ALLOCATE DEVICE 
57 50 pO 0118 211 MOVL RO,R SSAVE FINAL STATUS 
c2 50 —««E9 na 1 BLBC —E-«aRO, Res SIF ERROR, TRY NEXT DEVICE IN LIST 
121 214 ; 
4 ; 13 3 ; Output the device allocated message. 
1008 a8. 00«O«E1:sOOST SIP #LOG_V.QUAL(R8) ,808 :SKIP IF /NOLOG | 
20 AB «O7F COO 6 18 PUSHAQ EGUN Nani (RB) !PUSH DESCRIPTOR ADDRESS 
50 0003DDE3 BF BDO} 6 Movt ACL T$_ALLOC,RO SET Stards 
FECA’ 4 4 3 ' BSBW © DCLSFORMMSG [OUTPUT INFORMATIONAL MESSAGE 
136 ; 
: ; 23 3; Get the requested logical name. 
FEC7* 30 0136 6 bos:  BsBw p LSGETDVAL :GET NEXT PARAMETER VALUE 
03 55 91 0139 CMPB #PTR_K_PARAMETR :PARAMET ER VALUE? 
02 13 013¢ 8 BEQL ost SCONTINUE IF LOGICAL NAME FOUND 
05 3 91 iz 5 60S: ORee R6,#PTR_K_COMMA Exit IE . NPI LIS 
56 03 6 14 b cupr ROVE i itt ETP Pe Foun, ASS Lu THE LocicaL oe 
EC 1 148 5 BRB 80$ SLOOP UNTIL P2 OR EOL FOUND 
| 
FEBS" 146A 5 70$:  ®BSBW DCL SCOMPSTR N : REMOVE QUOTATION MARKS 
FF A261 . A a 1 : cMPe Ail ett yy fri 3 LOGICAL NAME END WITH COLON? 
¢ oF 1 8 DECL ae [REDUCE LENGTH OF LOGICAL NAME 
18 a8 4651 «7D 0156 75$: MOova RT .LOGNAM(RE) TSAVE THE LOGICAL N 
12, $a) ; 
15A 4g 3 Create the required item List. 
15a 243: 
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DONOM 


COMMANDS 
SEP=1 
CLRQ =(SP) 
MOVQ Pgh iS 
MOVW Li STRING. (SP) 
MOVL . 


TTR(R8) = 
BNAA(R8) ,- 
LOGNAM=LOGNAM(R8) ,- 
ACMODE=ACMODE (R8) ,- 
ITMLST=(R7) 
ADOL #426 ,SP 


: Output informational message if appropriate. 


CMP =—s-s #SS$_SUPERSEDE RO 
BNEQ 968 
BBC #LOG_V,QUAL(R8) ,95$ 
PUSHAB LOGNAM(R8) 
MOVL  #CLI$_SUPERSEDE,RO 
BSBW =-d DCLSFORMMSG 

95$: STATUS NORMAL 

96$: RS8 


19756 0= 1388 99:08:09 parva Macro V04-00 


SSS as 4 


p 
DCL.SRCJLOGICAL.MAR; 1 a &)| 


; TERMINAT 


THE LIST, ZERO LEN ADOR 
sSET THE é : 


QUIV_ NAME DESCR 
sSET THE ITEM TYP 
GET THE ITEM LIST ADDRESS 


CREATE THE REQUESTED NAME 


| 
| 
| 
| 
} 
| 
:POP THE ITEM LIST | 
| 


PREVIOUS ASSIGNMENT SUPERSEDED? 
F NEQ NO 


BRANCH IF /NOLOG 

;SET LOGICAL NAME ADDRESS 
SET FAO COUNT 

:SET STATUS 

sOUTPUT MESSAGE 


sRETURN SUCCESS 
sEXIT 
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J15 
GICAL NAME TO EQUIVALENCE StRIN ‘S-SEpcloRG SO:SE:99 PAR/ WAS Macro 04-00 Page 
.SBTTL ASSIGN LOGICAL NAME TO EQUIVALENCE STRING 
DCLSASSIGN = ASSIGN LOGICAL NAME TO EQUIVALENCE STRING 
THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE ASSIGN 
COMMAND . 


> INPUTS: 
; Rg = ADDRESS OF SCRATCH BUFFER DESCRIPTOR. 
3 R9_ = ADDRESS OF SCRATCH STACK. 
: R10 = BASE ADDRESS OF COMMAND WORK AREA. 
: R11 = BASE ADDRESS OF PROCESS WORK AREA. 
: OUTPUTS: 
$ ; THE SPECIFIED LOGICAL NAME IS ASSIGNED TO THE SPECIFIED EQUIVALENCE 
8; STRING. IF A PREVIOUS LOGICAL ASSIGNMENT IS SUPERSEDED, THEN A 
i 3 MESSAGE TO THAT EFFECT IS WRITTEN TO THE TPUT STREAM. 
91 ° 
35 DCLSASSIGN:: sASSIGN LOGICAL NAME TO EQUIVALENCE 
3¢ : Parse the common qualifiers and the logical name string. 
% . BSBW §COMMON_QUAL sPROCESS COMMON QUALIFIERS 
9 CLRQ -(R9) sALLOCATE SPACE FOR EQUIV NAME 
98 MOVQ LOGNAM(R8) ,R1 3G EQUIV NAME DESC 
99 BSBW DCLSCOMPRESS sCOMPRESS THE STRING 
80 MOVQ R1, EQUNAM(R8) sSAVE EQUIV NAME 
08 : Init the item list. Insert the default translation attributes. 
05 1 MOVAB -64%62%4-4(SP),SP sALLOCATE ROOM FOR A 128 ITEM LIST 
Bg MOVL SP,R7 sSAVE THE ADDRESS OF THE LIST 
08 MOVL #LNM$_ATTRIBUTES@16+4, (R7)+ sSET THE ITEM TYPE 
09 MOVAL TRAN_ATTR(RB) , (R7)+ sSET THE DEFAULT ATTRIBUTES ADOR 
10 CLRL (R7)F ;ZERO THE RETURN LENGTH ADDR 
12 MOVL #1,R6 sMARK DEFAULT ATTRIBUTES SET 
13 ; 
14 ; Loop getting equivalence strings and their attributes. 
12 3 Build-the | By chee ° 
i$ 25$: BSBW a TRAN_ATTR sCHECK FOR NEW TRAN ATTRIBUTES 
18 BLBC RO, 30$ sBRANCH IF NO LOCAL QUALIFIER 
1 VL #LNMS$_ATTRIBUTES@16+4, (R7)+ sSET THE ITEM TYPE 
0 MOVL Ry. (09) sSAVE THE ATTRIBUTES 
1 MOVL RO, (R7)+ sSET THE ATTRIBUTES ADDR 
3 CLRL 3s (RP) + [ZERO THE RETURN LENGTH ADDR 
CLRL 6 sMARK NEW ATTRIBUTES SET 
4 BRB 40$ sPROCESS THE PARAMETER 
5 30$ BLBS R6,40$ sSKIP_ IF DEFAULTS IN EFFECT 
§ MOVL #@LNM$ ATTRIBUTE SRIG+6. (R7)* sSET THE ITEM TYP 
MOVAL TRAN_ATTR(R >, (R7)+ sSET THE DEFAULT ATTRIBUTES ADDR 
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LOGICA = LOGICAL NAME COMMANDS 16-SEP-1984 00:0 AX/VMS Macro V04-00 Pa 9 
Oe S05 ASSIGN LOGICAL NAME TO EQUIVALENCE STRIN at =}382 99: 8: 99 Yoel SRCJLOGICAL.MAR;1 - a 
7 06 OF CLRL = (R7?) + :Z2ERO THE RETURN LENGTH ADDR 
56 01 00 i MOVL #1,R6 ‘MARK NEW ATTRIBUTES SET 
87 20 ¢ 7D O1F 40$ MOVQ EQUNAM(RB), (R7)+ zSAVE THE quiy Hane DESCR 
FA A? BO OF MOVW ALAS. STRING, -6(R7) ‘SET THE fen 
i o4 if? Chats stn ENGTH :2ERO THe RETURN Lencr DESCRIPTOR 
AA 1 5 co nstnxtcAl dR : 
8 Be AO 9 4 6 CMPB Br R-6 F-BRaMeNT (ROD a SHAVE WE FOUND THE LOGICAL NAME? 
FOF 3" ; : Ha tis SCOMPRES :LORBRESS THE STAI eran heme 
20 a8 51 7D D MOva Ri EQUNAM(R8) [STORE THE LATEST STRING DESCR 
11 4 BRB ‘ :CHECK FOR New ATTRIBUTES 
87 04 4g 43$:  CLRL (R7)+ : TERMINATE THE LIST 
1 44 ; 
8 iF rf : Process logical name string. 
3 0 0215 7? BSBW DCLSCOMPSTRING sREMOVE QUOTATION MARKS 
FF A241 3A 9 18 48 cHPB #eAls/ -1(R2)(R1) {LOGICAL NAME END WITH COLON? 
6 5 1F 350 DECL = R1 ‘REDUCE LENGTH OF LOGICAL NAME 
18 a8 51 7D 1 351 458: #movad Ri LOGNAM(RB) SSAVE LOGICAL NAME DESCRIPTOR 
08°36 9 0998 «388 pseu Get LTRAN_ATIR {GRANCH IF NO-LOCAL QUALIFIER 
ry.) 38 0 0228 354 MOVL  R3,TRAN_ATTR(RB) ORVE THE ATTRIBUTES 
007C 3% O22 355 478: BRW COMMON_CRELNM [CREATE THE LOGICAL NAME 
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LOGI = LOGICAL NAME COMMANDS SEP-1984 00:08: AX/VMS Macro V04-00 Page 1 
) 100 05 DEFINE LOGICAL NAME EQUIVALENCE bate 38 99:08:00 DCL.SRCILOGICAL.MAR;1 . (8) 
} Hs Ps -SBTTL DEFINE LOGICAL NAME EQUIVALENCE 
! 53 3 DCLSDEFINE = DEFINE LOGICAL NAME EQUIVALENCE | 
1 6 : THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE DEFINE 
: 8 : COMMAND. 
1 $64 : INPUTS | 
1 66 ; RB = ADDRESS OF SCRATCH BUFFER DESCRIPTOR. 
1 67 ; R9 = ADDRESS OF SCRATCH STACK. 
1 8 é R10 = BASE rte Fe OF COMMAND “WORK AREA. 
! 6 : R11 = BASE ADDRESS OF PROCESS WORK AREA. 
4 : OUTPUTS: 
1 7 : THE SPECIFIED LOGICAL NAME IS ASSIGNED TO THE SPECIFIED E ~- A a 
8 1 74; STRING. IF A PREVIOUS LOGICAL ASSIGNMENT IS SUPERSEDED, THEN 
9 ! o 3 MESSAGE TO THAT EFFECT IS WRITTEN TO THE OUTPUT STREAM. 
0231 377° 
8 3 a DCLSDEFINE:: ;DEFINE LOGICAL NAME EQUIVALENCE 
8 4 ei : Parse the common qualifiers and the logical name string. 
0193 0 9 1 : BSBW  COMMON_QUAL ROCESS COMMON QUALIFIERS 
7 C 4 8 CLRQ =-(R9) c ALLOCATE SPACE FOR EQUIVALENCE NAME 
51 & ag 7D 8S 6 84 mova LOGNAM(R8) ,R1 [GET LOGICAL NAME DESC 
FDC3° a 023A 85 BSBW DCLSCOMPSTRING sREMOV E QUOTES FROM LOGICAL NAME 
18 AB 51 D ae4t 6 MOVQ R1,LOGNAM(R8) sSAVE LOGICAL NAME 
41 88 ; 
rh +4 3 Init the item list. Insert the default translation attributes. 
5E FOFC CE 9E 41 91° MOVAB * i Relaetidacit sALLOCATE ROOM FOR A 128 ITEM LIST 
57 SE 00 8 28 38 MOVL ;SAVE THE ADDRESS OF THE LIST 
87 00030004 8F dO 49 94 MOVL #LNM$_ATTRIBU Tés@ 1644, (R7)+ 3 SET THE ITEM TYPE 
87 68 ODE 29 95 MOVAL TRAN gATTRO R8),(R7)+ SET THE DEFAULT ATTRIBUTES ADDR 
87 D4 ; 38 CLRL (R7)F ERO THE RETURN LENGTH ADDR 
ge C 30 23 4 BSBW GET_TRAN_ATTR sCHECK FOR NEW TRAN avraiovres 
0 9 e9 58 9 BLBC nO. 258 ‘BRANCH IF NO LOCAL QUALIFIER 
68 8 22 400 MOVL R3, TRAN_ATTR(RB) sSAVE THE ATTRIBUTES 
FD9F° 5 —E 401 23$ BSBW pcLSconmne 53 sCOMPRESS THE STRING 
20 A& 51 D 61 4 § MOVaQ R1, EQUNAM(RB) sLOAD THE PIPELINE 
56 01 dO o3 4c MOVL #1,R6 * MARK DEFAULT ATTRIBUTES SET | 
6 405 ; 
6 4 ; Lo etting equivalence strings and their attributes. 
i Build-the item list. ° | 
9208 30 6 4 $ 55s: BSBW GET Soe TRAN_ATTR sCHECK FOR a TRAN aby IBUTES 
13 50 =E9 68 21? BLBC :BRANCH IF NO LOCAL QUALIFIER 
87 00059 F D 41 MOVL an ATTRIBUTES@16+4, (R7)+ SET THE ITEM TYPE 
3 D : tig MOVL nS SAV VE THE ATTRIBUTES 
87 D 7 41 MOVL R *(R7)+ SET THE ATTRIBUTES ADDR 
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ESEp=158¢ 28:09:57 


(R7)+ 
R 


R6,40$ 
aL ns ATTRIBUTES@16+4,(R7)+ 
RAN: NATTRGR RB), (R7)+ 


HR R6 


Sth iF (R7)+ 
Wns _STRING,-6(R7) 


CRY 

weTR K ENDLINE ,R5 
$e pa Ee 

Ble EQUNAM(R8) 


(R7)+ 


AX/VMS Macro Vv04-00 
DCL.SRCJLOGICAL.MAR;1 


sgne THE RETURN LENGTH ADOR 
K_ NEW ATTRIBUTES SET 


PROCESS THE PARAMETER 

sSKIP_IF DEFAULTS IN EFFECT 

:SE THE ITEM TYP 

SE DEFAULT ppd ag 3 —o 


T THE 
;ZERO THE RETURN LENGTH 
MARK NEW ATTRIBUTES ser 


3 SAVE _THE couly NAME DESCR 
7SET THE ITEM 
:ZERO THE RETURN LENGTH ADDR 


YES THEN TERMINATE ITEM LIST 
: COMBRESS THE § 

‘STORE T ne LATEST STRING DESCR 
SCHECK FOR NEW ATTRIBUTES 


TERMINATE THE LIST 
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LOGICA LOGICAL NAME COMMANDS 16- EP-19 
100600 DEFINE LOGI CAL NAME EQUIVALENCE EP-19 38 99: 98: 99 
AD 435; 
1 : § : Check for SYSSOUTPUT. 
AD 4 8 COMMON_CRELNM: 
57 i¢ 2 4 SUBL #6*406,R7 
ee 
0009 3 B Ang BSBW =: TE STOUT 
46 3 BB O44 BEQL  80$ 
oe 
BA re Create the requested logial names. 
00 08 AS «(01 =O E1-—s OBA 448 45s: BC WATTR_V, QUAL (RB) ,47$ 
BF 449; BICL  #LNMSR_CRELOG,NAME_ATTR(R8) 
57 SE DO O2BF 450 478:  MOVL OR 
02c2 451 SCRELNM_ 5 “ATTR=NAME ATIR(RB), - 
6 ¢ 43¢ “TABNAM= TABNAAY RS) 
C2 45 LOGNAM=LOGNAM(R8) ,- 
02C2 454 ACMODE=ACMODE (R8) ,- 
02c2 455 ITMLST=(R7) 
gst tas 
0 7 438 ; Output informational message if appropriate. 
50 0631 a 8} 0 bY 460 : cnpy #sss_ SUPERSEDE ,RO 
1008 a8 00 €1 020e 46¢ BBC #L0G_V, QUAL (RB), 50$ 
51° Or bo 058 cea ee pom 
50 0003DDEB 8F p60 0269 465 MOVL acl ts SUPERSEDE ,RO 
FDOD* 0 : 466 BSBW DCLSFORMMSG 
O2F3 468 50S: STATUS 
5E 0604 CE 9 C2FA 469 60$:  MOVAB Me eekes (SP) SP 
05 O2FF 470 RSB 
$300 402 
9300 crs ; Update SYSSOUTPUT. 
51 20 a8 7D 0300 475 80S: mOvQ | EQUNAM(RS),R1 
ross GB SNS 7h RY stagen ovr 
58 o0BC CB 0 030A 478 MOVL  PRC_L_IDFLNK(R11),R8 
FCEE* OF 47 BSBW DCLSCREATE. OUTPUT 
DF 11 0312 480 BRB 


a ee 5 


AX/VMS Macro V04-00 


Page 12 
DCL.SRCJLOGICAL MAR; 1 ef 


Do special processing if appropriate. 


WAS MORE THAN ONE VALUE SUPPLIED 


YES, THEN BRANCH 
31S LOGICAL NAME SYSSOUTPUT? 
YES, THEN BRANCH 


BRANCH IF QUALIFIER NOT SEEN 
DISABLE GOELOS ATTRIBUTE 
GET THE ITEM LIST ADDRESS 

; CREATE THE REQUESTED NAME 


ue SUPERSEDED? 


BRANCH IF /NOLOG 
SSET LOGICAL ane ADDRESS 
*SET FAO COU 


7SET STATU we 

ZOUTPUT MESSAGE 

SET _NORMAL COMPLETION 
RESTORE THE STACK 


OF cate ENCE NAME 
OUTPUT FILE 

NG ALONE IF ERROR 
SSOUTPUT INFORMATION 
OUTPUT LOGICAL NAME 


An<Zz 


onr 


WH 99:08:99 yan /vas Macro V04-00 Page 13, 


-SBTTL DEALLOCATE DEVICE 
; DCLSDEALLOCAT = DEALLOCATE DEVICE 


DCL. SRCJLOGICAL.MAR; 1 ( 


: THIS oes IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE DEALLOCATE 


FFER DESCRIPTOR. 


K. 
ND WORK AREA. 
OCESS WORK AREA. 


AME 
Vv 
9 
9 
9 
9 
9 


PPP LLLP PLE EEE 


MEW OOONAUE UT 


Fo 
wooo 
NO 


THE SPECIFIED DEVICE IS DEALLOCATED OR ALL DEVICES ARE DEALLOCATED. 


ooo 


DCLSDEALLOCAT:: 
BSBW E 
#PTR_K_PARAMETR,R5 
105” 


90$ 
DCLSCOMPSTRING 
#*A/:/,-1(R2)CR1] 
90$ 


WMPROPONONONORD 
FP NODOWOMOE PVNHF LLLP LSS PPP PPP PLL EEE SE 


| DOOD CODOOSCOoD 


PPADS SSVSISVSISION ~~ 
WHO DCOBNOULSWN—O 


DECL _ (R9) 
$DALLOC_S (R9) 
RSB 


061 
ST at END MITA A COLON 


3BR NO 
;REMOVE COLON FROM STRING 
sDEALLOCATE DEVICE 


a 
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4 
AL NAME EQUIVALENCE 4-SEP-1984 DCL.SRCJLOGICAL.MAR;1 — 8) 


B 15 ~SBTTL DEASSIGN LOGICAL NAME EQUIVALENCE 
2 SH 3 DCLSDEASSIGN = DEASSIGN LOGICAL NAME EQUIVALENCE 
8 i§ ; THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE DEASSIGN DCLS 
B p : COMMAND. 
: § 3 INPUTS: 
B 4: RB = ADDRESS OF SCRATCH BUFFER DESCRIPTOR. 
B 5; R9 = ADDRESS OF SCRATCH STACK. 
B $ ; R10 = BASE ADDRESS OF COMMAND WORK AREA. 
8 fi R11 = BASE ADDRESS OF PROCESS WORK AREA. 
0 ; 4 : OUTPUTS: 
0338 1; THE SPECIFIED LOGICAL NAME EQUIVALENCE OR ALL LOGICAL NAME EQUIVALENCES 
8 4 ¢ : ARE DEASSIGNED. 
0 4° 
b336 3 5 DCLSDEASSIGN:: :DEASSIGN LOGICAL NAME EQUIVALENCE 
0089 30 0338 6 BSBW § COMMON_QUAL [PROCESS COMMON QUALIFIERS 
57 04 0336 537 CLRL sR? SASSUME DOING /ALL 
05 08 As 02 «21 «(0340 © «(5538 BC #DEF_V,QUAL(R8) ,3$ [SKIP IF DEFAULTED 
19 08 AB 00 60 0345 539 BBS #LOG~V.QUAL(R8) .5$ ‘BR IF DOING /ALL 
51 18 AB 7D 034A 540 3S: MOVQ LOGNAM(R8) ,R1 7GET LOGICAL NAME 
FCAF® 30 O34€ 541 BSBW DCLSCOMPSTRING SREMOVE EXTERNAL QUOTATION MARKS 
18 A& 51 7D 0351 206 MOVQ R1,LOGNAM(R8) ;SAVE LOGICAL NAM 
57 18 A8& 7E 8326 54 MOVAQ LOGNAM(RB) R7 sCOPY THE eee re ADDRESS 
FF A241 3A 91 0359 544 CMPB /:/,-1(R2)CR1) :STRING END WITH A COLON 
03 12 O35— 545 BNEQ gs :BR IF NO 
18 AB OCO#D 0360 346 DECL §§ LOGNAM(RB) [REMOVE COLON FROM STRING 
2c 19 0363 547 5$: BSBB Ss TESTU 1S LOGICAL NAME SYSSOUTPUT? 
14 13 0365 548 BEQL 108 YES, THEN SKIP 
0367 549 SDELLNM_S TABNAM=TABNAM(R8) ,- ;DEASSIGN LOGICAL NAME EQUIVALENCE 
0367 550 LOGNAM=(R7),- 
0367 551 ACMODEZACMODE (RB) 
57 05 0376 338 TSTL = R : DEASSIGN/ALL 
Oe 1 0378 55 BEQL 208 SYES, THEN AE EREATE SYSSOUTPUT 
0° O38 aes es ; 
52 0114 (CB 9E 0378 556 10$:  MOVAB PRC_W_OUTIFI(R11).R2 | ;GET ADDRESS OF SYSSOUTPUT INFORMATION 
58 00BC CB DO 0380 557 MOVL PRC~L~IDFLNK(R11),R8 § :GET ADDRESS OF CURRENT IDF Ck 
FC78° 30 83 38 BSBW DCLSRESTORE OUTPUT ZRESTORE PROCESS PERMANENT SYSSOUTPUT 
58 00BC cB p 8 559 208 MOVL PRC_L_IDFLNR(R11),R8 ET ADDRESS OF CURRENT I 
FC70° be 0305 269 ty DCLSCREATE_OUTPUT : CREATE SYSSOUTPUT LOGICAL NAME 
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= LOGICAL NAME COMMANDS 16-SEP-1984 99:08:09 YAX/vits Macro v04-00 
TEST IF LOGICAL NAME IS SYSS$OUTPUT 4=SEP=1984 23:41: DCL.SRCJLOGICAL.MAR; 1 
31 63 .SBTTL TEST IF LOGICAL NAME IS SYSS$OUTPUT 
31 g8 : SUBROUTINE TO TEST IF LOGICAL NAME IS SYSSOUTPUT 
31 e + ON OUTPUT, 'Z°= 1 IF SYSSOUTPUT IS SPECIFIED 
31 § 3 CLOBBERS RO-R3 
91 i TESTOUT: 
18 a8 % 91 57 TSTL GNAM(RB) :WAS A LOGICAL NAME SPECIFIED? 
..% 94 57 BEQL [RETURN IF NOT 
29 08 ag ae 96 57% BBS #ATTR_V,QUAL(R8),20$ § :BRANCH IF ATTRIBUTES SPECIFIED 
CA ; D1 0398 575 CMPL #PSLSC_USER. ACMODE (RB) t1$ LOGICAL NAME USER MODE? 
13 039F 57 BEQL iY HEN RETURN 
10 AB -FC66 CF O9s«O3A1— «S57 CMPB NMSPROCESS, TABNAM(RS) :COMPARE LENGTH OF TABLE NAME 
ig 38 A? «57 BNEQ 0$ ‘RETURN IF NOT EQUA 
1488 10A8 2 Ag s«57 CMPC - TABNAM(R8), @TABNAM+4(R&).-;COMPARE ACTUAL STRING 
FCSB CF AE 80 NMSPROCESS+#1 ; 
11 12 0381 381 BNEQ 0$ SRETURN IF NOT EQUAL 
18 AB FCO CF O91 0385 Be CMPB QUTPUTNAM,LOGNAM(RB) [COMPARE LENGTH OF OUTPUT 
09 lg 9 «6458 BNEQ 208 SRETURN IF NOT EQUAL 
10 B8 18 AB 2 0 BB 284 CMPC —_ LOGNAM(R8) @LOGNAM+4(R8).=;COMPARE ACTUAL STRING 
FC3E CF €0 5 OUTPUTNAM+{ : 
05 0 cs 386 10$:  RSB : 
01 DS 03C4 588 208: TSTL #1 sSET FAILURE STATUS 
05 03€6 589 RSB ; 
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OMMAND QUALIFIERS pats 7a ds ott Me yh ee et age 18) 


; -SBTTL PROCESS COMMON COMMAND QUALIFIERS 
; SUBROUTINE TO PROCESS COMMON COMMAND QUALIFIERS 
ON INPUT, RY = ADDRESS OF SCRATCH STACK 
ON OUTPUT, SCRATCH STACK LOOKS LIKE 

<== RY initially 


: Logical name : LOGNAM(R8) 
; descriptor 3 
: Table name : TABNAM(R8) 
; descriptor 3 
$ Access mode ; ACMODE(RS) 


Qual flags ; QUAL(R8) 


> Def name attr ; NAME_ATTR(R8) 


: Def tran attr ; TRAN_ATTR(R8) <== R8,R9 finally 


CVS Se Se Se Be Ge Se Se Ge Se Se Se Se Ge Se Ge Se Ge Se See See 
Sete e 


OOO GOOCCSOOOCOCOCOCSOOCOCOOCCOCOSCOOOCOOOOOOOOOOOo 


WAAL AI AAAI AAI AIA AIAN NINIANIAIA IAAI AAI AIA AAAI AAAI AIAIAIAN EO 


WHM MMMMMMMM SO OOO SD SIAN AAAAAAAAANAAAAAAAAAAAAAAAAAOOO 
OD & 9D ONS MOD BNF OW 


CAAA AIA AIA AIA POR POFUPORIMURINUNYD — — — 3 — — = = = @QOOOOOOCOOO0O0D00D000 


NOAA WR 2S ODNAUE WIN 9 OD NAME WIN 9 OO NA NE WWIN 9 OD NAME WM @ O OO NAUE ito 


79 ~=7 CLRQ = = (R9) SALLOCATE SPACE FOR LOG NAME DESCR 
55 FC3E CF 9€ MOVAB LNMSPROCESS,RS SASSUME PROCESS LOGICAL NAME TABLE 
54 85 OA MOVZBL (R5)+,R4 : 
79 54 «7D MOVO §—s- RG, = (RO) SSAVE THE DESCRIPTOR 
79 «02 00 MOVL #PSLSC_SUPER,-(R9) [AND SUPERVISOR MODE 
79 O01 OD MOVL #LOG M7- SASSUME /LOG DEFAULTED 
; MOVL #LNMSM’CRELOG,-(R9) [SET DEFAULT NAME ATTRIBUTES 
79 CLRL = = (RY) [SET DEFAULT NAME ATTRIBUTES 
79 4 CLRL = = (RO) [SET DEFAULT TRAN ATTRIBUTES 
58 59 00 MOVL  R9,RB [COPY THE BASE OF THE DATA STRUCTURE 
FCIC’ 30 10$:  BSBW DCLSGETDVAL :GET NEXT DESCRIPTOR VALUE 
55 03 91 20$:  CMPB #PTR_K_PARAMETR,RS [ITEM TYPE PARAMETER OR €OL? 
1A BGTRU $ [NO, THEN PROCESS QUALIFIER 
13 BEQL 4 :PROCESS PARAMET 
01 1 BRW 10$ SRETURN WITH NULL PARAMETER 
O14E 8631 358 BRW 00$ [PROCESS PARAMET 
Fegc® 0 $ BSBW © OCLS$GETNVAL [GET QUALIFIER NUMBER 
00000000'8F 51 01 CMPL  R1, #CLISK_DEFI_USER PQUALIFIER MATCH? 
66 13 BEQL Ss [YES, THEN BRANCH 
00000000°8F 51° »1 CMPL = R1, #CLISK_DEFI_SUPE SQUALIFIER MATCH? 
64 13 BEQL 4 4=s:«éW:'106$ SYES, THEN BRANCH 
00000000'8F 51° 01 CMPL = R1, #CLISK_DEFI_EXEC SQUALIFIER MATCH? 
61 13 040D Bea. 4=s:« 12068 [YES, THEN BRANCH 
00000000'8F 51 »1 F CMPL «R11, #CLISK_DEF1_PROC SQUALIFIER MATCH? 
3E 13 16 Bea. ©: 1308 [YES, THEN BRANCH 
00000000 ' 8F D1 041 CMPL sr 1, #CLISK_DEFI_JOB SQUALIFIER MATCH? 
3 13 OIF BEQL 1358 [YES, THEN BRANCH 
00000000°e@F 51° 01 421 CMPL «RT, #@CLISK_DEF1_GROU TQUALIFIER MATCH? 
1 13 8 Bea. 4=s«14408 :YES, THEN BRANCH 
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LOGI = LOGICAL NAME COMMANDS 6~$EP-19 :0 AX/VMS Macro v04-00 Page 17 
D QUALIFIERS : - DCL.SRCILOGICAL.MAR; (10) 
100 505 PROCESS EOMMON COMMAND QUALIFIE ets a es a eee 1 9 40 
00000000' 8F 51 2 A G48 CMPL R] #CLISK_DEFI_SYST JQUALIFIER MATCH? 
F } 4 BEQL ‘YES, THEN BRANCH 
00000000' 8F 20 CMPL = R1,#CLISK_DEFI_TABL SQUALIFIER MATCH? 
A BNEG 60 3NO, CHECK NEXT 
00 c ¢ RW 16 $ 7¥ES, THEN BRANCH 
00000000° 8F | D1 653 60S: MPL 1, #CLISK_DEFI_LOG SQUALIFIER MATCH? (ALSO DEASSIGN/ALL 
}2 6 654 NEG 387 [NO, CHECK NEXT 
1 0448 655 RW 170$ [YES, THEN BRANCH 
00000000' 8F } D 4B 6 $ 70$:  CMPL R1,#CLISK_DEFI_NAME SQUALIFIER MATCH? 
! 6 BNEO § [NO, CHECK NEXT 
: BRW $ [YES, THEM BRANC 
00000000' 8F 31 1 7 6 80S:  CMPL R1,#CLISK_DEFI_TRAN SQUALIFIER MATCH? 
1 ; 60 BNEG «108 [NO, IGNORE IT 
00B3 6 66] BRW 190$ :YES, THEN BRANCH 
OC a8 9 po 6 $8 100$:  MOVL #PSLSC_USER, ACMODE (RB) :SET USER MODE 
00 1 0467 664 BRW 171 [GET NEXT TOKEN 
OC a8 9 DO 046A 665 110$: MOVL #PSLSC_SUPER ,ACMODE (RB) tSE¥ SUPER MOD 
¢ 11 6 66 BRB 171 :GET NEXT TOKEN 
OC A8 gi D0 667 1208: MOVL  #PSLSC_EXEC,ACMODE(RS) [SET EXEC MODE 
6 11 474 668 BRB 1718 [GET NEXT TOKEN 
55 feo! ce 4 a476 670 130$: WOVAB, LNBSPROCESS ,RS SUSE PROCESS LOGICAL NAME TABLE 
10 AB 8 7D 3 67 MOV —-R4, TABNAM(RB) SSAVE THE DESCRIPTOR 
68 11 06 é 673 BRB 171$ :GET NEXT TOKEN 
55 eas CF 3 4 675 135$: MOVAB  LNMSPROCESS,R ASSUME /NOJOB 
05 53 00 £0 89 676 BBS #PTR_V GEES teoPrR. V_FLAGS.R3, 1378 “BR IF /NOJOB 
55 F886 CF 48D 67 MOVAB  LNMSJOB,RS ;USE JOB LOGICAL NAME TABLE 
54 85 9A 32 678 137$:  MOVZBL (R5)+,R 
10 A8 54 7D 0495 679 MOVQ  —s-R4,, TABNAM(RB) ISAVE THE DESCRIPTOR 
1 #11 499 680 BRB 174$ [GET NEXT TOKEN 
55 £B6C CF 3 498 6 3 140$: MOVAB  LNMSPROCESS,R SSUME {NOGROUP 
0553 00 €E AO 6 BBS #PTR_V NEGATE=PTR. V_FLAGS.R3, 1476" “BR IF /NOGROU 
55 £877 cr 4 aang 6 4 “ae BOVAB LNMSGROUP, oRS sUSE GROUP NOICAL NAME TABLE 
10 A8 5 7D O4AC 686 MOVO = RG TABNAM(RE) ISAVE THE DESCRIPTOR 
A 11 4B 6 ? BRB 174$ :GET NEXT TOKEN 
55 £855 cr 43 4B2 6 $ 150$:  MOVAB LNMSPROCESS=R RS ASSUME {NOSYSTER 
05 5 0 B7? 690 BBS #PTR_V ghEGATE-PTR. V_FLAGS,R3, 1578 “BR IF /NOSYSTEM 
55 FBOA CF 9E 691 MOVAB LNMSSYS sUSE SYSTEM LOGICAL NAME TABLE 
54 85 9A 04C 69¢ 157$:  MOVZBL (R5)+,R4 
10A8 54 7D 04€3 69 mOva Re TABNAM(RE) ISAVE THE DESCRIPTOR 
i. C7 694 BRB 171$ ‘GET NEXT TOKEN 
55 EB3E f 9e c9 iF 160$: HOVAB LNBSPROCESS.R5 zASSUME PROCESS LOGICAL NAME TABLE 
10 A8 54 7D tb MOVQ—s- RG, TABNAM(R8) SAVE THE DESCRIPTOR 
14 53 8 405 63 BLBS R3.171$ 7BR ANCH IF NEGATED 
FB25° D 9 BSBW ©—-: DCL SGETDVAL “GET THE T 
10 a8 51 7D 0408 MOVa R11. TABNAM(R8) [SAVE IT AWAY 
11 ADF f BRB 174$ [GET NEXT TOKEN 
08 AB «(0S)«CBsCO04E1 «= 704.1708: BISL  #LOG_M!DEF_M,QUAL(R8) TASSUME /LOG OR /ALL 


G 16 


194$: BISL Sh Seer, PONT, - FRAN AS ORETCD SET THe ATTRIBUTE 
1928 :GET NEXT VALUE 


4S os R1,LOGNAM(R8) GET FIRST PARAMETER DESCRIPTOR 
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PROCESS COMMON COMMAND QUALIFIERS pa ett 99:08:90 feu SRCJLOGICAL.MAR; 1. 9 110) 
0453 £9 O4€ 5 BLBC ~=—_«&R3, 1718 :BRANCH IF SO 
08 A8 3 A ER 6 BIcL @ 56M. QUAL (RB) 7SET /NOLOG OR /NOALL 
FEF 1 04EC 171$: BRW bs ‘FT NEXT TOKEN 
FEF 1 ae 8 172$: BRW [PROCESS THE TOKEN 
08 AB (02)«CCB CGF : 180$: BISL #ATTR % Qua (RB) iMARK / NAME ATTRIBUTES SEEN 
04 AB 04 O4F 1 CLRL ATERGR [ZERO INITIAL ATTRIBUTES 
FO GF 18 BLBS Rae : RANCH IF NEG ATE 
FB \ 4FC 713 182$: B8SBW D CS$GETDVA [GET ITS VALUE 
02 FF ar cHPB #PTR_K *OUALVALU ; SKIP IF Not A QUALIFIER VALUE 
43 8F if ae CMPB ss (R2.) , #*A/C/ tCONFINE KEYWORD? 
lg 8 71 BNEQ [NO, THEN BRANCH 
04 As : C8 A ak BISL #LNMSM_CONF INE ,NAME_ATTR(R8) set THES ATTRIBUTE 
04 As ff cs 316 0 184$: BISL #LNASM_NO_ALIAS NAME ATTR(RB) [SET THE ATTRIBUTE 
fb 314 721 BRB [GET NEXT VALUE 
08 AB «(02 )«CCB8 CONS 16 5 190$: BISL #ATTR_M QUAL (RB) MARK {TRANSLATION ATTRIBUTES SEEN 
$ D4 OSiIA 7 CLRL =r TRAN_ATT ; ZERO INITIAL ATTRIBUTES 
cD &8 51C 725 BLBS “BRANCH IF NEGATED 
FADE sip 7 é 192$: BSBW  DCLSGETD :GET ITS VALUE 
02 3 1 3 : f , cHPB R PPTR_K. QUALVALU ; SKIP IF NOT A QUALIFIER VALUE 
43 8F 63 91 0527 729 CMPB 1, Pint i CONCEALED KEYWORD? 
lg 05 B 730 BNEQ THEN BRANCH 
00000100 8F CB 0520 731 BISL § #LNMSM_CONCEALED, TRAN_ATTR(R8) tS THE ATTRIBUTE 
E9 i 05 4 g é BRB 192$ GET N 
"Be ie 
7D 053 136 
05 0543 7 
0544 738 


WW 


H 16 
ee GET TRANSLATION ATTRIBUTES "SSEe=198 BB2Fi87 USELUSR CALS CAL Saas P88" HY, 


J 
44 % -SBTTL GET TRANSLATION ATTRIBUTES 
re re 3 SUBROUTINE TO PROCESS TRANSLATION ATTRIBUTES 
44 44; QUALIFIER SEEN FLAG 
44 745: R /R2_= DESCR OF NEXT PARAMETER 
44 46 : R = TRANSLATION ATTRIBUTES 
344 f 3 = TYPE OF LAST TOKEN SEEN 
44 749 éer_ TRAN_ATTR: :GET TRAN ATTRISUTES 
7 7 44 0 TLRQ 2 =(SP) TASSUME QUALIFIER NOT SEEN 
FAB?" 3 46 f 108 BSBW DCLSGE [GET NEXT DESCRIPTOR VALUE 
55 (03 4 20$ CPB 0s #P TR_K_PARAMETR,RS [ITEM TYPE PARAMETER? 
D 15 054¢ 7 BLEQ 90S 71F LEQ END OF LINE OR PAKAMETER 
04 aE 01 00 34 754 MOVL #1,4(SP) [MARK QUALIFIER SEEN 
D4 3 755 CLRL (SP) SRESET ATTRIBUTES 
08 A& c8 5 £26 BISL #ATTR_M,QUAL (RB) sMARK /T SLATION_ATTRIBUTES SEEN 
EB 8 55875 BLBS R3,108 :BRANCH JF NEGATED~ 
FAAS" 558 «758 308 BSBW DELSGETDVAL [GET ITS VALUE 
02 5 1 55E 759 CMPB R5 ,@PTR_K_QUALVALU SK KIP IF NOT A QUALIFIER VALUE 
£6 12 0561 760 BNEQ 208 
43 8F 62 91 0563 761 CMPB ss (R2) , #*A/C/ ; CONCEALED KEYWORD? 
: lg 56 16¢ BNEQ 40S [NO, THEN BRAN 
6E 00000100 8 ¢ 0569 76 BISL § #LNMSM_CONCEALED, (SP) tSET THE ATTRIBUTE 
E9 11 05 764 BRB 3 :GET NEXT VALUE 
6E 00000200 8F C8 0572 765 40$:  BISL #LNMSM_TERMINAL, (SP) [SET THE ATTRIBUTE 
EO 11 0379 166 BRB 30$ [GET NEXT VALUE 
53 8ED0 0578 768 90$: POPL  R3 :RETURN ATTRIBUTES AND STATUS 
50 BEDO O5S7E 769 POPL RO : 
05 0581 770 RSB : 


16-SEP-1984 00:08: AX/VMS Macro Vv04-00 

7365-1 984 BABS, EDCL«SRCILOGICAL MAR; 1 
~SBTTL CREATE LOGICAL NAME TABLE 

DCLSCRETABLE = CREATE LOGICAL NAME TABLE 


= LOGICAL NAME COMMANDS 
CREATE LOGICAL NAME TABLE 


Eb 


Paar 2) 


THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE 
CREATE/NAME, TABLE COMMAND. 


INPUTS: 


5 
5 Rg = ADDRESS OF SCRATCH BUFFER DESCRIPTOR. 
5 RO = ADDRESS OF SCRATCH STACK. 
5 R10 = BASE ADDRESS OF COMMAND WORK AREA. 
3 R11 = BASE ADDRESS OF PROCESS WORK AREA. 
08 OUTPUTS: 
3 THE SPECIFIED LOGICAL NAME TABLE IS CREATED. 
5 
05 CLSCRETABLE:: :CREATE A LOGICAL NAME TABLE 
79 bs 058 19¢ CLRL = (R9) SASSUME /LOG 
79 FFOO BF 3C 0584 79 MOVZWL #DEF_PROT,-(R9) ?SET DEFAULT TABLE PROTECTION 
B208 ree 3 (SY:RWED,OW:RWED,GR,WO) 
79 DO S289 796 VL #PSLSC_SUPER,-(R9) sASSUME SUPERVISOR MODE ACMODE 
D4 058¢ 797 CLRL = = (RO) *ASSUEM /NOQUOTA 
79 01000000 BF D0 05 : 798 OVL $#LNMSM_CREATE_IF,-<R9) SASSUME / 
51 FAAB CE 9E 0595 799 MOVAB LNMSPROCESS_DIRECTORY,R1 SASSUME /NOPARENT 
50 gi 9A 059A 800 MOVZBL (R1)+,RO ; 
79 50 7D 09D 01 VQ RO, =(R9) [SAVE THE DESCRIPTOR 
FASD' 30 030 88 10$:  BSBW  DCLSGETDVAL :GET NEXT DESCRIPTOR VALUE 
55 03) «(91«O05A 04 208: CMPB #PTR_K_PARAMETR,RS SITEM TYPE PARAMETER? 
03 12 0546 05 BNEQ  30$ [NO, THEN PROCESS QUALIFIER 
0124 31 0548 B06 BRW 200$ :YES, THEN DONE 
FAS2" 30 O5AB 808 30$: BSBW  DCLSGETNVAL :GET QUALIFIER NUMBER 
00000000'8F 51° 01 O5AE 09 CMPL 1, #CLISK_CRET_USER SQUALIFIER MATCH? 
45 13 058 10 BEQL Ss ?YES, THEN BRANCH 
00000000'8F 51 D1 0587 811 CMPL  R1,#CLISK_CRET_SUPE SQUALIFIER MATCH? 
42 13 058 12 BEQL ‘YES, THEN BRANCH 
00000000°8F 51 oi 05¢ 1 CMPL R11, #CLISK_CRET_EXEC SQUALIFIER MATCH? 
F 13 5C¢ 14 BEQL sYES, THEN BRANCH 
00000000'8F 51 01 3¢9 15 CMPL = R1, #@CLISK_CRET_QUOT SQUALIFIER MATCH? 
C 13 05D 1 BEQL [YES, THEN BRANCH 
00000000'8F 51 D1 05D 1 CMPL = R1,#CLISK_CRET_ATTR SQUALIFIER MATCH? 
4F 13) «05D 18 BEQL ‘YES, THEN BRANCH 
00000000'8F 51 01 308 1 MPL = R1,#CLISK_CRET_PARE TQUALIFIER MATCH? 
78 413 «O05 0 EQL ‘YES, THEN BRANCH 
00000000' 8F 31 D1 054 1 CMP Ri ,#CLISK_CRET_PROT SQUALIFIER MATCH? 
3 12 O5€B : BNE § NO 
0085 31 O5ED BRW 160$ :YES, THEN BRANCH 
00000000'8F 51° 01 3F0 4 40S: CMPL R1,#CLISK_CRET_LOG [QUALIFIER MATCH 
A7 1 SF § BNEG 198 ‘NO, GET NEXT TOKEN 
0087 3 39 $ BRW 175$ ?YE$, THEN BRANCH 
10 a9 03 00 O5FC 8 100$: MOVL  #PSLSC_USER,16(R9) sSET USER MODE 


| 
eee 


LOGICA = LOGICAL NAME COMMANDS 16-SEP=1 :0 AX/VMS Macro V04-00 Pa 1 
be 505 CREATE LOGICAL NAME TABLE 4-SEP=1 3b 98: 8: 99 Yoel SRCJLOGICAL.MAR;1 os ad) 
96 11 BRB 10$ :GET NEXT TOKEN 
10 a9 g5 b9 3 110$: MOVL  #PSLSC_SUPER,16(R9) [SET SUPER MODE 
1 1 BRB 108 :GET NEXT TOKEN 
10 a9 o1 06 3 120$: MOVL #PSLSC_EXEC,16(R9) ‘SET EXEC MODE 
2. ¢ ; BRB 10$ ‘GET NEXT TOKEN 
OC AD «4 5 130$: CLRL 12(R9) sASSUME /NOQUOT 
19 4 8 i 5 BLBS 4g Res ‘BRANCH IF SO 
FOES" 614 BSBW DCL SGETDVAL 'GET QUOTA VALUE 
52. 51 617 8 MOVa RILR :COPY DESCRIPTOR 
5101 p 1A 9 MOVL #1.R1 SSET DECIMAL RAC 
F9EO" 19 40 BSBW DCL SCNVNOEDIT > CONVERT ER TO BINARY 
oc ad—s51 4 MOVL  R1,12(R SSAVE THE VALUE A 
FF79 3 624 4g 1318: BRW 108 ‘GET NEXT TOKEN 
FF79. 31 6 7 43 132$: BRW 20$ SPROCESS NEXT TOKEN 
08 a9 01000000 ef 00 Og A 4s 140$: mov #uNM CREATE _1F .B(R9) : ASSUME io 
FoCg" 5 06 g B09 142$: BSBW DCL SGETDVAL 'GET ATTRIBUTE KEYWO 
02 H 9 0638 848 cHPB RS #PTR_K_QUALVALU ;SKIP IF NOT A QUALIFIER VALUE 
4E 8F f 91 063D 830 CMPB 1 pe ‘NO _ALIAS KEYWORD? 
06 if 641 851 BNEQ 144$ =NO; THEN BRANCH 
08 Ao «6001S CBC0643 85¢ BISL § #LNMSM_NO_ALIAS,8(R9) ‘SET THE ATTRIBUTE 
EC 11 0647 85 BRB 142$ [GET NEXT VALUE 
43 8F 62 91 0649 854 1448: CMPB  (R2),#*A/C/ CO NFINE KEYWORD? 
06 le 064D 855 BNEQ 144$ THEN BRANCH 
08 Ad 02 C8 O64F 896 BSL ‘ SM_CONF INE .8(R9) Sef THE ATTRISUTE 
08 AD 01000000 Sr CA 0685 858 146$: BICL  #LNMSM_CREATE_IF,8(R9) 'CLEAR THE ATTRIBUTE 
D611 620 859 BRB 142$ GET NEXT VALUE 
51 ESE! cr 4 Dest 861 150$: ROVAB LNMSPROCESS_DIRECTORY RI ;ASSUME /NOPARENT 
69 50 7D 0667 $08 ova RO. (RO) i saur THE DESCRIPTOR 
B7 53 ES 066A 864 BLBS R3.131$ :BRANCH HE so 
F990" 30 0660 65 BSBW DCLSGETOVAL [GET TABLE NAME 
69 51 7D 067 66 MOV = Ri, (RO) : SAVE tHE DESCRIPTOR 
AF Oo 067 67 BRB 134$ [GET NEXT TOKEN 
0673 69 : SET LOGICAL NAME TABLE PROTECTION CODE 
F988° 30 0675 871 160$: BSBW  DCLSGETDVAL :GET NEXT DESCRIPTOR VALUES 
55 02 91 0678 ie CMPB ss #PTR_K_QUALVALU,R5S : QUALIFIER 
AA 12 678 3 BNEQ 132$7 , ALL DONE iin PROTECTION. 
FAO7 CF 04 62 3A 067 75 LOCC (R2),#4,CLASS ace PROTECTION CLASS 
A 13 068 , BEQL 180%" [IF EQL INVALID CLASS 
0 07 7 DECL_ RO sCALCULATE STARTING BIT NUMBER 
50 4 CS 06 7 MULL3 #4,R0,R8 
1409 04 58 OF FO 0 INSV = @* KF RB, #4, 20(R9D ZASSUME NO ACCESS 
54 O02: is«91s«O06 1 PB = #PTR_K_COLON,R4 SPROTECTION VALUE SPECIFIED? 
DF 12 694 : BNEQ 160% :NO, TRY TO GET NEXT CLASS 
F967" 30 696 4 BSBW DCLSGETDVAL :GET PROTECTION VALUE DESCR LPTOR 
57 51 dO 06 5 VL —sR1,R? [SAVE LENGTH OF VALUE STRING 


ICAL NAME COMMANDS 1 6-SEP-1984 :0 ‘AX/VMS Macro v04-00 Page 
E LOGICAL NAME TABLE rae PS ees ee reas tare tee ee oe 9) 
9C 
9 5 165$: LOCC (R24, #4, ACCESS LOCATE PROTECTION CODE 
A : BEGL 185$ SIF EQUL INVALID PROTECTION 
DECL =o CAL CULATE RELATIVE BIT NUMB 
ag 0 ADDL oR 80 SCALCULATE ACTUAL BIT NUMBER 
A 9 Becc =i 2 £89) .1708 TALLOW SPECIFIED ACCESS 
A ; 170$:  SOBGTR R7.165$ ZANY MORE TO SCAN? 
68 93 BRB 166$ ZNO, TRY TO GET NEXT CLASS 
68 99 ; PROCESS /LOG QUALIFIER 
68 38 175$: CLRB 24(R9) ZASSUME /LOG 
6 98 BLBC R3,176$ t1T IS /LOG. FLAG OK AS IS 
68 9 INCB 24 (R9) :1T IS /NOLOG. SET FLAG 
d6Be 300 176$: BRW 31$ [GET NEXT TOKEN 
tee 908 180$: STATUS IVKEYW :SET_ INVALID KEYWORD 
&§ 904 185$: STATUS IVPROT [SET INVALID PROTECTION CODE 
O6CE 308 RSB EXIT 
Oger $07 200$: MOVQ  R1,-(R9) :SAVE THE LOGICAL NAME DESR 
06D2 909 SCRELNT_S ATTR=16(R9),- sCREATE THE TABLE 
: 06D2 910 OTA=20(R9) ,- F 
06D2 (911 TABNAM=(R9) , = : 
06D ge PARTAB=8(R95 ,- : 
060291 ACHODE=24.(R95 ,- : 
06D2 914 PROMSK=28(R9) ; 
OE 818 
OSE 4 : OUTPUT INFORMATION MESSAGES ABOUT THE TABLE CREATION 
40 20 A9 £8 O6EE 919 ° BLBS  32(R9),280$ :SKIP IF /NOLOG 
50 01 61 Fs 920 CMPy = #SS$_NORMAL,RO ZEXISTING TABLE NOT SUPER.? 
09 12 O6F5 921 BNEQ 21087 [NO, CHECK OTHER STATUS 
50 0003DE0B 8F 00 O06F7 9 é MOVL #CLIS_TABEXIST.RO ‘YES, TELL USER 
28 Oo FE 3 ; BRB 270$ : 
50 0631 8F B81 07 Q 925 210$: CMPW  #SS$_SUPERSEDE.RO EXISTING TABLE SUPERSEDED? 
09 if 7 9 6 BNEQ  220$ CHECK OTHER STATUS 
50 0003DE13 8F DO 0707 9 MOVL HCL 1S_TABSUPER,RO ves, TELL USER 
18 «11 2 2 8 BRB 270$ ; 
F 61 071 $: CMPW #SS$_LNMCREATED,RO :NEW TABLE CREATED? 
sg pment SH) HL BR Gt, camer LEPC RE rns 
10 AY 01000000 ar D3 O71E 9 : BITL sLNASA CREATE_IF,16(R9) iWAs /SUPERSEDE SPECIFIED? 
D 12 g 3 4 BNEG  285$ SIF NOT, SKIP MESSAGE 
69 9F 07 9 6 270$:  PUSHAB (R9) :GET TABLE NAME DESCIPTOR 
” F8D0" Hi ; . 3 ate OCC STORMASG ° :SET FAO, ESSAG AGE 
03 11 , : i BRB bass SEXIT WITH STATUS NORMAL 
7 9 07 94 : BLBC  R0,2908 :BRANCH IF ERROR 
sel adiline 4 942 ite STATUS NORMAL SRETURN SUCCESS 
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. .SBTTL SHOW LOGICAL NAME ECUIVALENCES 
: DCLSSHOWTRAN = SHOW LOGICAL NAME TRANSLATION 


; THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE SHOW LOGICAL 
; NAME EQUIVALENCES DCLS COMMAND. 


: INPUTS: 


108-000 SHOW 


o 
Pd 
r 
3 


BUFFER DESCRIPTOR. 
OMMAND WORK AREA. 
ROCESS WORK AREA. 


3 


 VvoOrsT 
nm 


OUTPUTS: 


THE SPECIFIED LOGICAL NAME EQUIVALENCE FROM THE PROCESS 
LOGICAL NAME TABLE IS WRITTEN TO THE OUTPUT STREAM. 


CLSSHOWTRAN: : SHOW THE TRANSLATION FOR A NAME 


WWIAWIWAINIWIAI AANA AAA EO 


=—OODNAUNE WH" OOOonauw 
s 


Dee Se Se Se Ge Se Be Ge Se Se Se Sete 


PPPS 


96 
965 ; 


3++ 
967 ; Stack Layout: 
: Table name; 
: descriptor ; 
: Logical name ; 
; descriptor =; 


975 


HBL FWA AAAAAWIAWIWAAAWAW 


SOOOOOOCOSOSOSSOOOCGCOCOOCOOOOSOOSOSSOCOSOSOSOCOCOOSOOOOOOOOCOOOOOOOOOOOCOO FT 
-—MDOALOOMMOOvMUG CCTV VTVTCTVTVTVVTV9V9T9C9C9CT9000"_00 000000000000 "0000000090 ——r 
oO 
~ 


SSS SNS NNN NSS OOOO 


976 : Squivet name ; 
977 3 descriptor ; 
978 j eeeewceeeeeeece : 
979 3 Item list ... ; 
age 3 5 
1 
388 
one 3; Parse the command string. 
51 FEF3 CF 9E 986 MOVAB LNMSDCL_LOGICAL,R1 ;SET DEFAULT LOGICAL NAME TABLE 
50 3} 9A 987 MOVZBL (R1)+,R0 3 
7E 50 7D 3 8 MOVa —-RO, - (§P) : 
F8B5° 30 990 10$: BSBW DCLSGETDVAL 7GET FIRST TOKEN 
55 3. Cié&91 991 CMPB #PTR_K_PARAMETR,R5S :1S IT A PARAMETER 
12 338 BNEQ 15$ 3NO, THEN PROCESS /TABLE 
5 99 ASSUME PTR ¥-KE WORD EQ 21 
F453 O01 €0 a 994 BBS #1,R3,108 s IGNORE OPTION KEYWORD 
16 «11 3 998 BRB 20 [PROCESS THE LOGICAL NAME 
51 FBEDA CF 9E 5 997 15$: MOVAB LNMSDCL_LOGICAL,R1 sASSUME /NOTABLE 
50 1 9A : 44: MOVZBL (R1)+,R0 : 
bE 9 7 mova RO. (SB) ; 
E4 3 61 1 39 BLBS R3,10$ :BRANCH IF SO 
F899" 64 1001 BSBW DCLSGETDVAL ;GET TABLE NAME 


| 
| 
| 
| 
| 
| 
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V04= SHOW LOGICAL NAME EQUIVALENCES ae att 1 9908: 00 DCL.SRCILOGICAL.MAR; 1 . (93) 
6€ 51 7D 0767 100 MOVQ = R1, (SP) :SAVE IT 
dc 11 ZOA 1 BRB 10§ ‘GET NEXT TOKEN 
7E 51 7D 076C 1005 20$: mova - R1,-(SP) ;SAVE LOGICAL NAME DESCR 
76F 1006 
76F 1007 ; 
76F 1008 ; Create item List and perform translation. 
O76F 1009 ; 
7E 06 O76F 1010 CLRL = = ( SP) sBUILD ITEM LIST 
7E FAE 9F 07 1 1011 MOVAB -12(SP),-(SP) ; ADDR OF RETURN LENGTH 
7E £896 CA 9E 0775 101¢ MOVAB WRK G_INPBUF (R10) ,-(S ‘BUILD TABLE NAME DESCRIPTOR 
7E 00060100 8F oD O77 191 MOVL #LNAS"TABLEA16+WRK_C_ INPBUF SIZ. -(SP) OSet ITEM TYPE AND LENGTH 
7E FG AE SE 0781 1014 MOVAB -12(SP),-(SP) :SET ADDR OF RETURN LENGTH 
50 51 06 Ci 0785 1015 ADDL3 #6,R1,R0 [LENGTH OF RESULT BEFORE EQUIV 
7E 0408 50 (C1 0789 1016 ADDL3 RO.4(RB),-<SP) ;BUILD EQUIV NAME DESCRIPTOR 
7E 668 «#©6500~=—«(C3 07 ( 1017 SUBL3 RO, (RB) ,-(SP) 
02 AE 02 80 0792 1018 MOVW aLNMS STRING, 2(SP) ‘SET ITEM TYPE 
5? SE 0 0796 1019 MOVL SPR :SET ITEM LIST ADDR 
0799 1953 STRNLNM_S TABNAM= 36(R7),- ; TRANSLATE THE LOGICAL NAME | 
0799 1028 LOGNAM=28(R7) ,- : 
0799 102 TTMLST= (R7) : | 
O7AC 1024 
01 SO D1 O7AC 1025 CMPL —- RO, #SS$_NORMAL :TEST FOR SUCCESSFUL TRANSLATION 
OF 13 O7AF 1026 BEQL 30$ ‘BRANCH IF SUCCESS 
67 B84 0781 1027 CLRW = (7) TELSE CLEAR BYTE COUNT OF RESULTANT 
51 F8B0 CF SE 0783 1028 MOVAB UNDEFINED,R1 : INDICATE UNDEFINED 
50 81 9A 0788 1989 MOVZBL (R1)+,RO ; 
0c A? 50 7D 078B 1030 MOVQ —s RO, 12 (R7) : 
O7BF 1031 
078F 1936 : 
O7BF 1035 ; Strip off escape sequences. 
O7BF 1034 : 
02 A? B4 O7BF 1035 $0$: CLRW =. 2(R7) :CLEAR ITEM TYPE 
52 67 SE O7C2 1036 MOVAB (R7),R2 [GET ADDRESS "OF EQUIV DESCRIPTOR 
62 05 O7¢5 1037 TSTL = (R2) tZERO LENGTH EQUIV? 
11 13 O7C7 1038 BEQL 40$ SIF EQL YES 
0482 1B 91 O7€9 1039 CMPB ss #27, @4(R2) ‘FIRST CHARACTER ESCAPE? 
0B 12 O7¢D 1040 BNEQ 408 SIF NEQ NO 
04 a2 04 CO O7CF 1041 ADDL #4,4(R2) [POINT PAST EQUIV HEADER | 
62 04 C2 67D3 1048 SUBL #4, (R2) ‘REDUCE LENGTH OF EQUIV BY HEADER | 
02 18 0706 104 BGEG 408 TIF GEQ OKAY 
62 D4 O07D8 1044 CLRL = (2) [CLEAR EQUIV LENGTH 
O7DA 1045 
7DA 1046 ; 
B7DA ee 3; Output the message. 
51 £893 CF 9E O7DA 1049 40$:  MOVAB  LOGICALMSG,R1 :GET ADDRESS OF Ascic FAO STRING 
50 81 9A O7DF 1050 MOVZBL it 1)+#,R0 AKE INTO DESCRIPT 
7E 20 7D O7E2 1051 va 0,-(§P) ‘PUSH ONTO STACK 
50 E 0 O7E 1058 MOVL sp [GET DESCRIPTOR ADDRESSES 
51° ICA E O78 105 MOVAQ 28(R7),R1 ; 
52. 67 7E O7EC 1054 MOVAQ (R7),R2 : 
53 OC A? C7E rer 1055 MOVAQ 12(R7),R3 ; 
7F 1089 SFAO_S (RO),(R8),(RB),R1,R2,R3 sFORMAT OUTPUT MESSAGE 
806 1058 


¢ 1 
Peet | = LOGICAL NAME COMMANDS bh ak Sat hs 9 90:08:90 AX/VMS Macro V04-00 Page 26 
v04= SHOW LOGICAL NAME EQUIVALENCES 4=SEP=1984 25:41: DCL.SRCJLOGICAL.MAR; 1 (13) 
SE 2C A? 9E 0806 1059 MOVAB 44(R7),SP RESTORE THE STACK 
51 6 D BaOn 1060 MOVa (RB) ,R4 7GET OUTPUT MESSAGE PARAMETERS 
F7FO" 30 OD 1061 BSBW DCLSMSGOUT SOUTPUT MESSAGE 
pet9 1906 STATUS NORMAL ;RETURN SUCCESS 
05 0817 106 RSB 
0818 1064 
0818 1065 ~END 


aaa 


dD 1 


- :08: - Page 27 
ett meee TESEESSEG 99:28:99 WBELUNECHEGGHCAPMARB. —P98* 
Symbol table al 

= 00000000 EQUNAM s 
12 : 09006 SON ARAN. AT 6 O3te 0 
ACCESS 000 6R 02 LNMSOCL_COGICAL 0 0036 R 0 
CMODE 2 $ 0000¢ LNMSFILE DE 4445 8 
ATTR_M = 00000002 LNM$GROU SBObOTT 8 
ATTR-V = SOS OSA LNM$JOB = B0000%0 
CLASS 000008A R 0 LNM$M_CONCEALED = 0000010 
—CLISK ~ALLO _GENE eeeeeeee =X 0 LNMSM_CONF INE = 8000006 
ttisk “CRET-ATIR teeeeeee KX 0 LNMSM-CREATE_IF = 91900000 
CUISKD CRET“EXEC eeeeeeee XX 0 LNMSM-NO_ALIAS = 90000001 
| CLISKICRET~ aexeeeee X 0 LNMS$M~ TERMINAL = 00000200 “ 
CLISK_CRET_PARE teeeeeee xX 0 LNMSPROCESS 8 Bee 68 
CLISK-CRET“PROT eeeeeeee xX 0 LNMSPROCESS. DIRECTORY 90000044 R 02 
ze eekerene Xx Z 
et eno erases irleres - $333935 
See reece et i STABLES = 00000004 
ratteti amc teeneene =X 8s LOGICALMSG = 38 4 26 R 
CLISK-DEF 1~ JOB teeeeeeer XxX 02 LOGNAM = 00000 
CLISK_DEF 1-LOG eeeeeere X 02 LOG 8 = 90000001 
tattentit pert pein SE TR E_ATTR = 00000004 
CLISK—DEF I~ PROC eeeneeee KX 02 NAME_A i 
CLISK-DEF I~ SUPE eeeeeere Xx 02 UTPOTNAM 08 3008 
CLISK_DEF I-SYST eeeneree X 02 _B_ CONTINUE ae ee 
CLISK"DEF I~ TABL aeeeeree X 02 PRC_B_DEFRADIX SO000GAE 
CLISK_DEF I" TRAN eeeeeeee = X 02 PRC_B_EXMDEPMOD BE OR RAD 
ets atte sooamoes "| RececeNurgt 3000015 
ae = 00038060 ee ME yA Bob OS RB 
CLIS~IVPROT = 00038070 PRC_B_I ore. OR Ont or 
CLIS" NORMAL = 00030001 PRC_B_OU LA 4 AE 
CLIS~ SUPERSEDE = 0003DDEB PRCW 8. ~PRORPTL 90000060 
Ct eT Aeentey = BO03DETB PRC~G-TONRANDS 99000133 
CLI. TABSUPER * eee egg PRESENT set 
ie 000003C7 R 02 PRC_L-CURRKEY 
DCL SALCOLATE 0000008 02 PRC_L hat ee St a 
DCLSASSIGN 000001A3 R 02 PRC“L_EX 90000096 
DCLSCNVNOEDIT aeeeeree KX 02 PRC_L_EXTBLK ittittst 
DCLSCOMPRESS eenereee X 02 PRC“L-EXTCOD 9000009" 
DCLSCOMPSTRING eeneeeee xX 0g PRC"-L_EXTHND 90000090 
DCLSCREATE OUTPUT eeeereee§ KX 0 PRC"L-EXTPRM 9 
DCLSCRE TABLE 0000582 RG 0 PROTLAIDELNK 9000008C 
DCLSDEALLOCAT 0000314 RG 0 PRC“L_ ST et 
be §00902 ; Re 6 PRE“LTINDEPTH 0000005¢ 
DCLSF ORMMSG eereeree 8 6X 65 PRC_L_INDFAB Bon OO TE 
| DCLSGETDVAL tenereee X 02 PRC"L~INDINPRAB 9000081 
DEL SASGOUT: sonoecee 03 PRELTINPRAB $0900008 
eererenre x o 
Ort Basen OUTPUT eererene Xx PRC_L_LASTKEY sated 
DCLSRESTORE OUTPUT aeereeee =X Bs PRC_L-LSTSTATUS BR8 + 
gerSgrowren - $9990 Phe“ -SHEEE See 
a = PRC~L ~OUTOF BAND 
ov = $0000002 PRC~L~OUTRAS 000000¢ 


e 3 


LOGICAL = LOGICAL NAME COMMANDS i a dt P49 99:08:90 ae Macro V04-00 Page 8 
Symbol table 4=SEP-1984 23:41: DCL.SRCILOGICAL.MAR;1 (13) 
PRC_L_OUTR FE PTR_V_KEYWORD = 68 0015 
PRC“L-PPFLIST 9007 PTR-V_NEGATE = 9 0014 
PRC"L-RECALLPTR 900 ef auaC ~ = 00000008 
PRC_L_REST 9000 8 SS$_LNMCREATED = 900068) 
PRC_L-SAVAP 00000000 SS$_NORMAL = 900 01 
PRC_L_SAVFP B08 0004 SS$_ “NOSUCHDEV = 000 $4 
| eae “LTSEVERITY 00 96 0 $S$-SU UPERSEDE = 00000631 
PRC_L_SPWN 4444 CO SYSSALL eeeeeere GX 02 
| PRCTL-STACKLM 000000A4 SYSSCR ECM aeeneeee GX 02 
—PRC-L-STACKPT 90000080 SYSSCRELNT aeenenee GX 02 
| PRCTLUSTATUS 0000054 SYSSDALLOC aeeneeee GX 02 
| PRC_L-STS 00000084 SYSSDELLNM eeeeeeee GX 06 
—PRC_LL_USTV 00000088 SYS$FAO aeeneeee = X 0 
PRC_L_SYMBOL 00000060 SYS$T - pasa eeeeeeee GX 02 
| PRC“L-TMBX 00000074 TABNAM = 00000010 
REI “L_TRMLIST 00000010 TESTOUT 00000391 02 
| PRC_Q -ALLOCREG 00000020 TRAN_ATTR = 00000000 
PRC_Q°C 000000E0 UNDEFINED 00000067 02 
PRC_Q “FLUSHT IME 90000000 WRK_B_CMDOPT FFFFFFC3 
| PRC_Q- GLOBAL 0000002 WRK-B_MAXPARM FFFFFFDO 
PRC_Q” IMAGENAME 00000008 WRK-B_MINPARM FFFFFFD1 
PRC~Q-KEYPAD 00000040 WRK-B-PARMCNT FFFFFFCE 
PRC_Q-LABEL 00000030 WRK~B_PARMSUM FFFFFFCE 
PRC_Q-LOCAL 00000038 WRK-B_RECALLCNT FFFFFFCS 
PRC_Q"SAVEPRIV 000000E8 WRK-B-VALLEV FFFFFFC4 
PRC-T_OUTDVI 0000011C WRK-B_VERBTYP FEFFFFC2 
pac v_ASTIOSB 0000006 WRK_C_INPBUF SIZ = 00000100 
| PRC"WASTRETN 000000C8 WRK-C"LENGT FFFFF486 
| PRC“W~ASTSTATUS 00000C4 WRK-G_BUFFER FFFFF492 
PRC_W_ATTMBX 0000007A WRK-G_INPBUF FFFFF896 
PRC_W-FLAGS 00000068 WRK-G_RESULT FFFFFOB6 
PRC_W_INPCHAN 00000064 WRK-K_LENGTH FFFFF486 
PRC_W_ONLEVEL 0000006A WRK-L-CHARPTR FFFFF4S8E 
PRC_W_OUTIF I 00000114 WRK-L-DISALLOW FFFFFFE6 
PRC_W_OUTISI 00000116 WRK"L-ERRORRTN FFFFFOAE 
PRC_W_OUTMBXCHN 000000CA WRK-L-EXPANDPTR FFFFF486 
PRC_W_OUTMBXREF 000000CE WRK-L— IMAGE FFFFFFE2 
PRC_W_OUTMBXS1Z 000000CC WRK-L-MARKPTR FFFFF4SA 
PRC_W-PMPTCTRL 000000F 1 WRK-L-PAROUT FFFFFFD2 
PRC-W_WAITIOSB 00000066 WRK-L"PMPTADDR FFFFFOA2 
PSLSC_EXEC = 00000001 WRK-L-PROMPTRIN FFFFFOA6 
PSL$C_ SUPER s 9000000¢ WRK-L-PROPTR FFFFFFC6 
PSLSC_USER = 0000000 WRK"L~QUABLK FFFFFFCA 
PTR_B_LEVEL 90000006 WRK-L"READRTN FEFFFOAA 
PTR" 0000005 WRK-L-RECALLPTR FFFFFFEA 
PTR-B_PARMCNT 00000006 WRK-L-RSLE FFFFFFB6 
PTR_B_VALUE 06000000 WRK-L-RSLNXT FFFFFFBA 
PTR_C_LENGTH 000 000 WRK-L~SAVAP FEFFFFFS 
| PTR7K~ COLON = 900008 ¢ URK“L SAVER FFEFFFFFC 
PTR_K- COMMA = 0000000 KL“SAVSP FEFFFFRS 
PTR_K_ENDLINE = 00000004 WRK-L-SIGNALRIN FFFFFFD6 
| PTR7K"LENGTH 0000000¢ WRK"L-SPECRTN FFFFFOB2 
PTR—K~PARAMETR = 00000003 WRK"L-TAB_VEC FFFFFFDE 
PTR_K_QUALVALU = 000 : WRK-L-VERB FFFFFFB 
PTR-L-DESCR 00 “W"FLAGS FFFFFFEF 
atm ty 000000 WRK"W"-FLAGS2 FFFFFFF 
| PTRTV~FLAGS = 00000014 WRK"W" IMGCHAN FRFFFFEE 


| - ©- 
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LOGICAL = LOGICAL NAME COMMANDS a EP=-1 386 90:08 09 rite Macro V04-00 Page 3 
Symbol table b=19 DCL.SRCJLOGICAL.MAR;1 (13). 
WRK_W_PMPTLEN FFFFFOSE 
desesan ww aon aoe soe > 
: ;_Psect synopsis H 
‘PSECT name Allocation PSECT No. Attributes 
| ABS . ? 909000 0. : 60 é 0.) NOPIC USR CON ABS LCL so pt NOEXE NORD a NOVEC BYTE 
| SABSS 7 1.) NOPIC USR CON ABS LCL NOSHR EXE RD NOVEC BYTE 
| DCLSZCODE Qo000818 { 2072:) O2¢ 2:3 NOPIC Usk CON REL CEL NOSHR EXE RD NOURT NOVEC BYTE 
| foeceeescoee as mn em secocs ewaey 
H Performance indicators H 
[Phase Page faults CPU Time Elapsed Time 
Initialization 15 00:00:00.08 00:00:01.26 
zounend processing 101 00:00:00.65 a Se 
331 00:00:13.05 00:00:33.89 
Syabol table sart 9 00:00:01.69 00:00:04.36 
Pass 2 18 00:00:03.27 00:00:09.90 
Symbol table output 27 00:00:00.18 00:00:00.64 
Psect synopsis output 2 00:00:00.03 00:00:00.05 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 659 00:00:18.96 00:00:56.11 


The working set Limit was 1500 pages. 

69087 bytes (135 pages) of virtual memory were used to buffer the intermediate c 

There were 60 pages of symbol table = allocated to hold 980 non-local and 162° Tacail symbols. 
1065 source Lines were read in Pass 1, progye oe 20 object records in Pass 2. 

43 pages of virtual memory were used to define 28 macros. 


Macro library name Macros defined 
“$255$DUA28: SYS. FO TET SOLOS MLB; 1 0 
$255$DUA28: (DCL.OBJJDCL.MLB; 1 6 
“$255$DUA28:CSYS.OBJJLIB.MLB; 1 0 
$255S$DUA28: evs IBISTARLET: MLB;2 16 
TOTALS ‘all Libraries) 22 


Sree reer ee ene ee ere ener er er woe + 
; H ; Macro Library statistics : 
hee GETS were required to define 22 macros. 


| There were mo errors, warnings or information messages. 
| MACRO/L1S=L1S$:LOGICAL/0B.=0B$ :LOGI CAL MSRC$:LOGICAL/UPDATE=(ENH$:LOGICAL) +EXECML$/LIB+LIB$:DCL/LIB+SYSS$LIBRARY:SYSBLDMLB/LIB 


| 
| 
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